home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 029a / fdate44.zip / TIC.BAT < prev   
DOS Batch File  |  1992-01-21  |  6KB  |  171 lines
  1. @echo off
  2.  
  3. goto endcomment
  4. revision history
  5. ================
  6. Jan 7, 1992
  7.     Added ADDDOW function for regular weekly appointments
  8. Jan 12, 1992
  9.     Removed all /Od1 and /Imm-dd-ccyy, which are now defaults
  10. Jan 15, 1992
  11.     Added ability to accept +1, etc. as parms
  12. :endcomment
  13.  
  14. REM TicBAT points to the tickler batch file
  15. set TicBAT=C:\TICKLER.BAT
  16. set ticdat=
  17. set ticdow=
  18. set ticmsg=
  19. set tictmp=
  20.  
  21. if (%1)==() goto HELP
  22. for %%v in (ed Ed ED edit Edit EDIT) do if (%%v)==(%1) goto EDIT
  23. for %%v in (t T today TODAY Today  ) do if (%%v)==(%1) goto LIST
  24. for %%v in (dow DOW Dow DoW) do if (%%v)==(%1) goto adddow
  25. if (%2)==() goto LIST
  26.  
  27. :ADD
  28. rem -------------------------------------------------------------
  29. rem use a batch file to set ticdat, because it will display full error
  30. rem message if bad date has been passed in via parm %1
  31. rem -------------------------------------------------------------
  32. Fdate /Ff /A%1 /Imm-dd-yy /Omm-dd-ccyy /P"@set ticdat=">junktemp.BAT
  33. call junktemp.BAT
  34. del  junktemp.BAT
  35. if errorlevel 1 goto endit
  36.  
  37. set tictmp=%0 %1
  38.  
  39. shift
  40. set ticmsg=%1
  41. shift
  42.  
  43. :LOOPTOP1
  44. if (%1)==() goto LOOPEND1
  45. set ticmsg=%ticmsg% %1
  46. shift
  47. goto LOOPTOP1
  48. :LOOPEND1
  49.  
  50. if exist %TicBAT% goto exists1
  51. echo @echo off >> %TicBAT%
  52. :exists1
  53. echo if (%%today%%)==(%ticdat%) echo %ticmsg%>>%TicBAT%
  54. CLS
  55. %tictmp%
  56. goto endit
  57.  
  58.  
  59.  
  60. :ADDDOW
  61. set tictmp=%0 %1
  62. rem -------------------------------------------------------------
  63. rem use a batch file to set ticdat, because it will display full error
  64. rem message if bad date has been passed in via parm %1
  65. rem -------------------------------------------------------------
  66. set ticdow=
  67. for %%v in ( 1 2 3 4 5 6 7 ) do if (%2)==(%%v) set ticdow=%2
  68. if (%ticdow%)==() echo Invalid day-of-week number: %2
  69. if (%ticdow%)==() goto endit
  70.  
  71. shift
  72. shift
  73. set ticmsg=%1
  74. shift
  75. :LOOPTOP2
  76. if (%1)==() goto LOOPEND2
  77. set ticmsg=%ticmsg% %1
  78. shift
  79. goto LOOPTOP2
  80. :LOOPEND2
  81.  
  82. IF (%TICDOW%)==(1) SET TICMSG=%ticmsg% [REGULAR SUNDAY APPOINTMENT]
  83. IF (%TICDOW%)==(2) SET TICMSG=%ticmsg% [REGULAR MONDAY APPOINTMENT]
  84. IF (%TICDOW%)==(3) SET TICMSG=%ticmsg% [REGULAR TUESDAY APPOINTMENT]
  85. IF (%TICDOW%)==(4) SET TICMSG=%ticmsg% [REGULAR WEDNESDAY APPOINTMENT]
  86. IF (%TICDOW%)==(5) SET TICMSG=%ticmsg% [REGULAR THURSDAY APPOINTMENT]
  87. IF (%TICDOW%)==(6) SET TICMSG=%ticmsg% [REGULAR FRIDAY APPOINTMENT]
  88. IF (%TICDOW%)==(7) SET TICMSG=%ticmsg% [REGULAR SATURDAY APPOINTMENT]
  89.  
  90. if exist %TicBAT% goto exists2
  91. echo @echo off >> %TicBAT%
  92. :exists2
  93. echo if (%%ticdow%%)==(%ticdow%) echo %ticmsg%>>%TicBAT%
  94. CLS
  95. echo Added: %ticmsg%
  96. goto endit
  97.  
  98.  
  99. :HELP
  100. REM use ansi.sys to set color to blue
  101. echo 
  102. cls
  103. echo ┌─────────────────────────────────────────────────────────────────────────────┐
  104. echo │ TIC.BAT  : maintains and displays TICKLER.BAT, an automated tickler file.   │
  105. echo │═════════════════════════════════════════════════════════════════════════════│
  106. echo │  Usage   : TIC           displays this HELP screen                          │
  107. echo │─────────────────────────────────────────────────────────────────────────────│
  108. echo │  Usage   : TIC T         displays today's    appointments                   │
  109. echo │  Usage   : TIC T  +1     displays tomorrow's appointments                   │
  110. echo │─────────────────────────────────────────────────────────────────────────────│
  111. echo │  Usage   : TIC ED (or TIC EDIT)   calls text editor to edit TICKLER.BAT     │
  112. echo │─────────────────────────────────────────────────────────────────────────────│
  113. echo │  Usage   : TIC mm/dd/yy  displays appointments for date mm/dd/yy            │
  114. echo │  EXAMPLE : TIC 2/2/92    displays appointments for Feb 2, 1992              │
  115. echo │  EXAMPLE : TIC 2/2/tt    displays appointments for Feb 2 of this year       │
  116. echo │─────────────────────────────────────────────────────────────────────────────│
  117. echo │  Usage   : TIC mm/dd/yy  words ...     adds an appointment for date         │
  118. echo │                                        [mm/dd/yy]  to TICKLER.BAT           │
  119. echo │  EXAMPLE : TIC 2/2/92    Quality Improvement committee meeting @ 10 am      │
  120. echo │  EXAMPLE : TIC 2/2/tt    Quality Improvement committee meeting @ 10 am      │
  121. echo │─────────────────────────────────────────────────────────────────────────────│
  122. echo │  Usage   : TIC DOW dow#  words ...     adds a regular appointment           │
  123. echo │                                        for [dow#] day to TICKLER.BAT        │
  124. echo │  EXAMPLE : TIC DOW 2     Regular Monday-morning staff  meeting @ 8:30       │
  125. echo └─────────────────────────────────────────────────────────────────────────────┘
  126. REM use ansi.sys to set color to normal default colors
  127. echo  A
  128. goto endit
  129.  
  130.  
  131. REM ==================================================================
  132. :EDIT
  133.   SPFPC %TicBAT%
  134.   goto endit
  135.  
  136.  
  137. REM ==================================================================
  138. :LIST
  139. if not exist %TicBAT% goto endit
  140.  
  141. rem ------- call batch file to set today Evar -------
  142. set TICfut=0
  143. for %%v in (+1 +2 +3 +4 +5 +6 +7) do if (%2)==(%%v) set TICfut=%%v
  144. for %%v in (-1 -2 -3 -4 -5 -6 -7) do if (%2)==(%%v) set TICfut=%%v
  145. for %%v in ( 1  2  3  4  5  6  7) do if (%2)==(%%v) set TICfut=%%v
  146. Fdate /Fadd /At /N%TICfut% /Omm-dd-ccyy /P"@set today=">junktemp.BAT
  147. set TICfut=
  148.  
  149. call junktemp.BAT
  150. if (%today%)==(ERROR) echo Invalid date parameter [%1] received by %0
  151. if (%today%)==(ERROR) goto endit
  152.  
  153. rem ------- call batch file to set ticdow Evar -------
  154. Fdate /Ff /A%today% /Imm-dd-ccyy /Odow#   /P"@set ticdow=">junktemp.BAT
  155. call junktemp.BAT
  156. del  junktemp.BAT
  157.  
  158.  
  159. echo ───────────────────────────────────────────────────────────────────────────────
  160. FDATE /ff /A%today% /P"APPOINTMENTS & THINGS TO DO: "
  161. echo ───────────────────────────────────────────────────────────────────────────────
  162. CALL %TicBAT%
  163.  
  164.  
  165.  
  166. :endit
  167. set ticdow=
  168. set ticdat=
  169. set ticmsg=
  170. set TicBAT=
  171.